/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / DTS Sample Code / Macintosh Sample Code / Monthly Releases (Compressed) / MacDTS.Sample.Code.90.05.sit / SC.023.FracApp 2.0 / UAreaSelector.inc1.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 14 55 41 72 65 61 53 | 65 6c 65 63 74 6f 72 2e |..UAreaS|elector.|
|00000010| 69 6e 63 31 2e 70 00 00 | 00 00 00 00 00 00 00 00 |inc1.p..|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 18 36 00 | 00 02 a8 a2 63 63 00 a2 |......6.|....cc..|
|00000060| 63 63 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |cc......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 97 97 00 00 |........|........|
|00000080| 7b 5b 6a 3d 32 30 2f 35 | 33 2f 31 24 5d 7d 0d 0d |{[j=20/5|3/1$]}..|
|00000090| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 7b 24 |--------|----}.{$|
|000000f0| 53 20 41 53 65 6c 43 6f | 6d 6d 61 6e 64 7d 0d 0d |S ASelCo|mmand}..|
|00000100| 50 52 4f 43 45 44 55 52 | 45 20 54 41 72 65 61 53 |PROCEDUR|E TAreaS|
|00000110| 65 6c 65 63 74 6f 72 2e | 49 41 72 65 61 53 65 6c |elector.|IAreaSel|
|00000120| 65 63 74 6f 72 28 69 74 | 73 56 69 65 77 3a 20 54 |ector(it|sView: T|
|00000130| 46 72 61 63 41 70 70 56 | 69 65 77 3b 20 69 74 73 |FracAppV|iew; its|
|00000140| 44 6f 63 75 6d 65 6e 74 | 3a 20 54 46 72 61 63 41 |Document|: TFracA|
|00000150| 70 70 44 6f 63 75 6d 65 | 6e 74 29 3b 0d 0d 7b 20 |ppDocume|nt);..{ |
|00000160| 49 6e 69 74 69 61 6c 69 | 7a 65 20 74 68 65 20 73 |Initiali|ze the s|
|00000170| 65 6c 65 63 74 6f 72 20 | 6f 62 6a 65 63 74 20 69 |elector |object i|
|00000180| 74 73 65 6c 66 20 62 79 | 20 63 61 6c 6c 69 6e 67 |tself by| calling|
|00000190| 20 49 43 6f 6d 6d 61 6e | 64 2e 20 41 6c 73 6f 20 | IComman|d. Also |
|000001a0| 73 65 74 20 74 68 65 20 | 62 6f 6f 6c 65 61 6e 20 |set the |boolean |
|000001b0| 74 68 61 74 20 73 61 79 | 73 0d 20 20 77 65 20 63 |that say|s.  we c|
|000001c0| 6f 6e 73 74 72 61 69 6e | 20 74 68 65 20 6d 6f 75 |onstrain| the mou|
|000001d0| 73 65 2c 20 73 6f 20 74 | 68 61 74 20 6f 75 72 20 |se, so t|hat our |
|000001e0| 54 72 61 63 6b 43 6f 6e | 73 74 72 61 69 6e 20 6d |TrackCon|strain m|
|000001f0| 65 74 68 6f 64 20 67 65 | 74 73 20 63 61 6c 6c 65 |ethod ge|ts calle|
|00000200| 64 2e 20 7d 0d 0d 09 42 | 45 47 49 4e 0d 09 09 7b |d. }...B|EGIN...{|
|00000210| 20 69 6e 69 74 69 61 6c | 69 7a 65 20 6e 6f 72 6d | initial|ize norm|
|00000220| 61 6c 20 70 61 72 74 73 | 20 6f 66 20 63 6f 6d 6d |al parts| of comm|
|00000230| 61 6e 64 20 7d 0d 09 09 | 53 45 4c 46 2e 49 4e 6f |and }...|SELF.INo|
|00000240| 43 68 61 6e 67 65 73 43 | 6f 6d 6d 61 6e 64 28 63 |ChangesC|ommand(c|
|00000250| 4d 6f 75 73 65 43 6f 6d | 6d 61 6e 64 2c 20 69 74 |MouseCom|mand, it|
|00000260| 73 44 6f 63 75 6d 65 6e | 74 2c 20 69 74 73 56 69 |sDocumen|t, itsVi|
|00000270| 65 77 2c 20 4e 49 4c 29 | 3b 0d 0d 09 09 66 43 6f |ew, NIL)|;....fCo|
|00000280| 6e 73 74 72 61 69 6e 73 | 4d 6f 75 73 65 20 3a 3d |nstrains|Mouse :=|
|00000290| 20 54 52 55 45 3b 09 09 | 09 09 09 7b 20 64 6f 20 | TRUE;..|...{ do |
|000002a0| 74 68 65 20 63 6f 6e 73 | 74 72 61 69 6e 20 74 6f |the cons|train to|
|000002b0| 20 6d 61 74 63 68 20 74 | 6f 20 73 63 72 65 65 6e | match t|o screen|
|000002c0| 2e 20 7d 0d 0d 09 09 66 | 4f 77 6e 65 72 56 69 65 |. }....f|OwnerVie|
|000002d0| 77 20 3a 3d 20 69 74 73 | 56 69 65 77 3b 09 09 09 |w := its|View;...|
|000002e0| 09 09 09 7b 20 73 61 76 | 65 20 74 68 65 20 76 69 |...{ sav|e the vi|
|000002f0| 65 77 20 66 6f 72 20 75 | 73 65 20 69 6e 20 74 72 |ew for u|se in tr|
|00000300| 61 63 6b 69 6e 67 2e 20 | 7d 0d 09 09 66 50 6c 6f |acking. |}...fPlo|
|00000310| 74 57 69 64 74 68 20 3a | 3d 20 69 74 73 44 6f 63 |tWidth :|= itsDoc|
|00000320| 75 6d 65 6e 74 2e 47 65 | 74 50 6c 6f 74 57 69 64 |ument.Ge|tPlotWid|
|00000330| 74 68 3b 0d 09 09 66 50 | 6c 6f 74 48 65 69 67 68 |th;...fP|lotHeigh|
|00000340| 74 20 3a 3d 20 69 74 73 | 44 6f 63 75 6d 65 6e 74 |t := its|Document|
|00000350| 2e 47 65 74 50 6c 6f 74 | 48 65 69 67 68 74 3b 0d |.GetPlot|Height;.|
|00000360| 0d 09 45 4e 44 3b 09 09 | 09 09 09 09 09 09 09 09 |..END;..|........|
|00000370| 09 7b 20 54 41 72 65 61 | 53 65 6c 65 63 74 6f 72 |.{ TArea|Selector|
|00000380| 2e 49 41 72 65 61 53 65 | 6c 65 63 74 6f 72 20 7d |.IAreaSe|lector }|
|00000390| 0d 0d 7b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..{-----|--------|
|000003a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|000003f0| 7b 24 53 20 41 44 6f 43 | 6f 6d 6d 61 6e 64 7d 0d |{$S ADoC|ommand}.|
|00000400| 0d 46 55 4e 43 54 49 4f | 4e 20 54 41 72 65 61 53 |.FUNCTIO|N TAreaS|
|00000410| 65 6c 65 63 74 6f 72 2e | 54 72 61 63 6b 4d 6f 75 |elector.|TrackMou|
|00000420| 73 65 28 61 54 72 61 63 | 6b 50 68 61 73 65 3a 20 |se(aTrac|kPhase: |
|00000430| 54 72 61 63 6b 50 68 61 | 73 65 3b 20 56 41 52 20 |TrackPha|se; VAR |
|00000440| 61 6e 63 68 6f 72 50 6f | 69 6e 74 2c 20 70 72 65 |anchorPo|int, pre|
|00000450| 76 69 6f 75 73 50 6f 69 | 6e 74 2c 0d 09 09 09 09 |viousPoi|nt,.....|
|00000460| 09 09 09 09 20 20 6e 65 | 78 74 50 6f 69 6e 74 3a |....  ne|xtPoint:|
|00000470| 20 56 50 6f 69 6e 74 3b | 0d 09 6d 6f 75 73 65 44 | VPoint;|..mouseD|
|00000480| 69 64 4d 6f 76 65 3a 20 | 42 6f 6f 6c 65 61 6e 29 |idMove: |Boolean)|
|00000490| 3a 20 54 43 6f 6d 6d 61 | 6e 64 3b 20 4f 56 45 52 |: TComma|nd; OVER|
|000004a0| 52 49 44 45 3b 0d 0d 7b | 20 54 72 61 63 6b 20 74 |RIDE;..{| Track t|
|000004b0| 68 65 20 6d 6f 75 73 65 | 20 77 68 69 6c 65 20 74 |he mouse| while t|
|000004c0| 68 65 20 62 75 74 74 6f | 6e 20 69 73 20 64 6f 77 |he butto|n is dow|
|000004d0| 6e 2e 20 54 68 69 73 20 | 69 73 20 6f 76 65 72 72 |n. This |is overr|
|000004e0| 69 64 64 65 6e 20 73 6f | 20 77 65 20 63 61 6e 20 |idden so| we can |
|000004f0| 6d 61 6b 65 20 73 75 72 | 65 20 74 68 61 74 20 74 |make sur|e that t|
|00000500| 68 65 0d 20 20 73 65 6c | 65 63 74 69 6f 6e 20 69 |he.  sel|ection i|
|00000510| 73 20 63 6c 65 61 72 65 | 64 20 77 68 65 6e 20 77 |s cleare|d when w|
|00000520| 65 20 73 74 61 72 74 20 | 74 72 61 63 6b 69 6e 67 |e start |tracking|
|00000530| 2c 20 61 6e 64 20 70 72 | 6f 70 65 72 6c 79 20 73 |, and pr|operly s|
|00000540| 65 74 20 77 68 65 6e 20 | 77 65 20 61 72 65 20 64 |et when |we are d|
|00000550| 6f 6e 65 20 74 72 61 63 | 6b 69 6e 67 2e 20 7d 0d |one trac|king. }.|
|00000560| 0d 09 56 41 52 0d 09 09 | 73 65 6c 50 61 74 48 61 |..VAR...|selPatHa|
|00000570| 6e 64 6c 65 3a 09 09 50 | 61 74 48 61 6e 64 6c 65 |ndle:..P|atHandle|
|00000580| 3b 0d 09 09 74 65 6d 70 | 52 65 63 74 3a 09 09 09 |;...temp|Rect:...|
|00000590| 52 65 63 74 3b 0d 0d 09 | 42 45 47 49 4e 0d 09 09 |Rect;...|BEGIN...|
|000005a0| 54 72 61 63 6b 4d 6f 75 | 73 65 20 3a 3d 20 53 45 |TrackMou|se := SE|
|000005b0| 4c 46 3b 20 09 09 09 09 | 09 09 7b 20 4d 61 6b 65 |LF; ....|..{ Make|
|000005c0| 20 73 75 72 65 20 77 65 | 20 72 65 74 75 72 6e 20 | sure we| return |
|000005d0| 73 6f 6d 65 74 68 69 6e | 67 20 76 61 6c 69 64 2e |somethin|g valid.|
|000005e0| 20 7d 0d 0d 09 09 43 41 | 53 45 20 61 54 72 61 63 | }....CA|SE aTrac|
|000005f0| 6b 50 68 61 73 65 20 4f | 46 0d 09 09 09 74 72 61 |kPhase O|F....tra|
|00000600| 63 6b 50 72 65 73 73 3a | 20 42 45 47 49 4e 0d 09 |ckPress:| BEGIN..|
|00000610| 09 09 09 66 4f 77 6e 65 | 72 56 69 65 77 2e 53 65 |...fOwne|rView.Se|
|00000620| 74 53 65 6c 65 63 74 69 | 6f 6e 28 67 5a 65 72 6f |tSelecti|on(gZero|
|00000630| 52 65 63 74 2c 20 6b 52 | 65 64 72 61 77 29 3b 20 |Rect, kR|edraw); |
|00000640| 7b 20 63 6c 65 61 72 20 | 72 65 63 74 2c 20 74 68 |{ clear |rect, th|
|00000650| 65 72 65 20 69 73 6e d5 | 74 20 6f 6e 65 2e 20 7d |ere isn.|t one. }|
|00000660| 0d 09 09 09 45 4e 44 3b | 0d 0d 09 09 09 74 72 61 |....END;|.....tra|
|00000670| 63 6b 52 65 6c 65 61 73 | 65 3a 20 42 45 47 49 4e |ckReleas|e: BEGIN|
|00000680| 0d 09 09 09 09 50 74 32 | 52 65 63 74 28 56 50 74 |.....Pt2|Rect(VPt|
|00000690| 54 6f 50 74 28 61 6e 63 | 68 6f 72 50 6f 69 6e 74 |ToPt(anc|horPoint|
|000006a0| 29 2c 20 56 50 74 54 6f | 50 74 28 6e 65 78 74 50 |), VPtTo|Pt(nextP|
|000006b0| 6f 69 6e 74 29 2c 20 74 | 65 6d 70 52 65 63 74 29 |oint), t|empRect)|
|000006c0| 3b 0d 09 09 09 09 66 4f | 77 6e 65 72 56 69 65 77 |;.....fO|wnerView|
|000006d0| 2e 53 65 74 53 65 6c 65 | 63 74 69 6f 6e 28 74 65 |.SetSele|ction(te|
|000006e0| 6d 70 52 65 63 74 2c 20 | 6b 52 65 64 72 61 77 29 |mpRect, |kRedraw)|
|000006f0| 3b 0d 09 09 09 45 4e 44 | 3b 0d 09 09 45 4e 44 3b |;....END|;...END;|
|00000700| 09 09 09 09 09 09 09 09 | 09 09 7b 20 43 61 73 65 |........|..{ Case|
|00000710| 20 6f 6e 20 61 54 72 61 | 63 6b 50 68 61 73 65 20 | on aTra|ckPhase |
|00000720| 7d 0d 09 45 4e 44 3b 09 | 09 09 09 09 09 09 09 09 |}..END;.|........|
|00000730| 09 09 7b 20 54 41 72 65 | 61 53 65 6c 65 63 74 6f |..{ TAre|aSelecto|
|00000740| 72 2e 54 72 61 63 6b 4d | 6f 75 73 65 20 7d 0d 0d |r.TrackM|ouse }..|
|00000750| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 7b 24 |--------|----}.{$|
|000007b0| 53 20 41 44 6f 43 6f 6d | 6d 61 6e 64 7d 0d 0d 50 |S ADoCom|mand}..P|
|000007c0| 52 4f 43 45 44 55 52 45 | 20 54 41 72 65 61 53 65 |ROCEDURE| TAreaSe|
|000007d0| 6c 65 63 74 6f 72 2e 54 | 72 61 63 6b 46 65 65 64 |lector.T|rackFeed|
|000007e0| 62 61 63 6b 28 61 6e 63 | 68 6f 72 50 6f 69 6e 74 |back(anc|horPoint|
|000007f0| 2c 20 6e 65 78 74 50 6f | 69 6e 74 3a 20 56 50 6f |, nextPo|int: VPo|
|00000800| 69 6e 74 3b 20 74 75 72 | 6e 49 74 4f 6e 2c 0d 09 |int; tur|nItOn,..|
|00000810| 09 09 09 09 09 09 09 09 | 20 20 6d 6f 75 73 65 44 |........|  mouseD|
|00000820| 69 64 4d 6f 76 65 3a 20 | 42 6f 6f 6c 65 61 6e 29 |idMove: |Boolean)|
|00000830| 3b 20 4f 56 45 52 52 49 | 44 45 3b 0d 0d 7b 20 54 |; OVERRI|DE;..{ T|
|00000840| 72 61 63 6b 20 74 68 65 | 20 6d 6f 75 73 65 20 67 |rack the| mouse g|
|00000850| 69 76 69 6e 67 20 74 68 | 65 20 66 65 65 64 62 61 |iving th|e feedba|
|00000860| 63 6b 20 6f 66 20 61 20 | 64 69 66 66 65 72 65 6e |ck of a |differen|
|00000870| 74 20 72 65 63 74 61 6e | 67 6c 65 20 6b 69 6e 64 |t rectan|gle kind|
|00000880| 2e 20 20 54 68 69 73 20 | 69 73 20 73 6f 20 77 65 |.  This |is so we|
|00000890| 20 63 61 6e 20 75 73 65 | 0d 20 20 74 68 65 20 73 | can use|.  the s|
|000008a0| 65 6c 65 63 74 69 6f 6e | 20 70 61 74 74 65 72 6e |election| pattern|
|000008b0| 20 74 6f 20 67 69 76 65 | 20 61 20 70 72 65 66 65 | to give| a prefe|
|000008c0| 72 72 65 64 20 72 65 63 | 74 61 6e 67 6c 65 2e 09 |rred rec|tangle..|
|000008d0| 54 68 65 20 73 65 6c 65 | 63 74 69 6f 6e 20 70 61 |The sele|ction pa|
|000008e0| 74 74 65 72 6e 20 63 6f | 6d 65 73 20 6f 75 74 20 |ttern co|mes out |
|000008f0| 6f 66 0d 20 20 74 65 6d | 70 6f 72 61 72 79 20 6d |of.  tem|porary m|
|00000900| 65 6d 6f 72 79 20 73 6f | 20 61 73 20 74 6f 20 6e |emory so| as to n|
|00000910| 6f 74 20 66 61 69 6c 20 | 6e 65 65 64 6c 65 73 73 |ot fail |needless|
|00000920| 6c 79 2e 20 7d 0d 0d 09 | 56 41 52 0d 09 09 73 65 |ly. }...|VAR...se|
|00000930| 6c 42 6f 79 3a 20 09 09 | 09 52 65 63 74 3b 0d 09 |lBoy: ..|.Rect;..|
|00000940| 09 73 65 6c 50 61 74 48 | 61 6e 64 6c 65 3a 09 09 |.selPatH|andle:..|
|00000950| 50 61 74 48 61 6e 64 6c | 65 3b 0d 0d 09 42 45 47 |PatHandl|e;...BEG|
|00000960| 49 4e 0d 09 09 49 46 20 | 6d 6f 75 73 65 44 69 64 |IN...IF |mouseDid|
|00000970| 4d 6f 76 65 20 54 48 45 | 4e 20 42 45 47 49 4e 09 |Move THE|N BEGIN.|
|00000980| 09 09 09 09 7b 74 68 65 | 20 70 65 6e 20 69 73 20 |....{the| pen is |
|00000990| 61 6c 72 65 61 64 79 20 | 69 6e 20 70 61 74 58 4f |already |in patXO|
|000009a0| 52 20 6d 6f 64 65 2c 0d | 09 09 09 09 09 09 09 09 |R mode,.|........|
|000009b0| 09 09 09 09 09 20 62 6c | 61 63 6b 2c 20 6f 6e 65 |..... bl|ack, one|
|000009c0| 20 77 69 64 65 7d 0d 09 | 09 09 73 65 6c 50 61 74 | wide}..|..selPat|
|000009d0| 48 61 6e 64 6c 65 20 3a | 3d 20 47 65 74 50 61 74 |Handle :|= GetPat|
|000009e0| 74 65 72 6e 28 6b 53 65 | 6c 50 61 74 74 65 72 6e |tern(kSe|lPattern|
|000009f0| 29 3b 20 7b 20 67 65 74 | 20 74 68 65 20 70 61 74 |); { get| the pat|
|00000a00| 74 65 72 6e 20 77 65 20 | 75 73 65 2e 20 7d 0d 09 |tern we |use. }..|
|00000a10| 09 09 49 46 20 73 65 6c | 50 61 74 48 61 6e 64 6c |..IF sel|PatHandl|
|00000a20| 65 20 3c 3e 20 4e 49 4c | 20 54 48 45 4e 20 09 09 |e <> NIL| THEN ..|
|00000a30| 09 7b 20 75 73 65 20 6f | 75 72 20 70 61 74 74 65 |.{ use o|ur patte|
|00000a40| 72 6e 20 69 66 20 61 76 | 61 69 6c 61 62 6c 65 2e |rn if av|ailable.|
|00000a50| 20 7d 0d 09 09 09 09 50 | 65 6e 50 61 74 28 73 65 | }.....P|enPat(se|
|00000a60| 6c 50 61 74 48 61 6e 64 | 6c 65 5e 5e 29 3b 20 09 |lPatHand|le^^); .|
|00000a70| 09 09 7b 20 73 65 74 20 | 70 65 6e 20 70 61 74 74 |..{ set |pen patt|
|00000a80| 65 72 6e 20 74 6f 20 6f | 75 72 20 73 65 6c 65 63 |ern to o|ur selec|
|00000a90| 74 69 6f 6e 20 6b 69 6e | 64 2e 0d 09 09 09 09 09 |tion kin|d.......|
|00000aa0| 09 09 09 09 09 09 09 09 | 20 7d 0d 0d 09 09 09 50 |........| }.....P|
|00000ab0| 74 32 52 65 63 74 28 56 | 50 74 54 6f 50 74 28 61 |t2Rect(V|PtToPt(a|
|00000ac0| 6e 63 68 6f 72 50 6f 69 | 6e 74 29 2c 20 56 50 74 |nchorPoi|nt), VPt|
|00000ad0| 54 6f 50 74 28 6e 65 78 | 74 50 6f 69 6e 74 29 2c |ToPt(nex|tPoint),|
|00000ae0| 20 73 65 6c 42 6f 79 29 | 3b 0d 09 09 09 46 72 61 | selBoy)|;....Fra|
|00000af0| 6d 65 52 65 63 74 28 73 | 65 6c 42 6f 79 29 3b 0d |meRect(s|elBoy);.|
|00000b00| 09 09 45 4e 44 3b 0d 09 | 45 4e 44 3b 09 09 09 09 |..END;..|END;....|
|00000b10| 09 09 09 09 09 09 09 7b | 20 54 41 72 65 61 53 65 |.......{| TAreaSe|
|00000b20| 6c 65 63 74 6f 72 2e 54 | 72 61 63 6b 46 65 65 64 |lector.T|rackFeed|
|00000b30| 62 61 63 6b 20 7d 0d 0d | 7b 2d 2d 2d 2d 2d 2d 2d |back }..|{-------|
|00000b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b90| 2d 2d 2d 2d 7d 0d 7b 24 | 53 20 41 44 6f 43 6f 6d |----}.{$|S ADoCom|
|00000ba0| 6d 61 6e 64 7d 0d 0d 50 | 52 4f 43 45 44 55 52 45 |mand}..P|ROCEDURE|
|00000bb0| 20 54 41 72 65 61 53 65 | 6c 65 63 74 6f 72 2e 54 | TAreaSe|lector.T|
|00000bc0| 72 61 63 6b 43 6f 6e 73 | 74 72 61 69 6e 28 61 6e |rackCons|train(an|
|00000bd0| 63 68 6f 72 50 6f 69 6e | 74 2c 20 70 72 65 76 69 |chorPoin|t, previ|
|00000be0| 6f 75 73 50 6f 69 6e 74 | 3a 20 56 50 6f 69 6e 74 |ousPoint|: VPoint|
|00000bf0| 3b 0d 09 09 09 09 09 09 | 09 09 09 20 20 20 56 41 |;.......|...   VA|
|00000c00| 52 20 6e 65 78 74 50 6f | 69 6e 74 3a 20 56 50 6f |R nextPo|int: VPo|
|00000c10| 69 6e 74 29 3b 20 4f 56 | 45 52 52 49 44 45 3b 0d |int); OV|ERRIDE;.|
|00000c20| 0d 7b 20 43 6f 6e 73 74 | 72 61 69 6e 20 74 68 65 |.{ Const|rain the|
|00000c30| 20 6d 6f 75 73 65 20 74 | 6f 20 61 20 72 65 63 74 | mouse t|o a rect|
|00000c40| 61 6e 67 6c 65 20 74 68 | 61 74 20 69 73 20 74 68 |angle th|at is th|
|00000c50| 65 20 73 61 6d 65 20 70 | 72 6f 70 6f 72 74 69 6f |e same p|roportio|
|00000c60| 6e 20 61 73 20 74 68 65 | 20 64 6f 63 75 6d 65 6e |n as the| documen|
|00000c70| 74 2c 20 73 6f 20 77 65 | 20 63 61 6e 0d 20 20 6d |t, so we| can.  m|
|00000c80| 61 6b 65 20 74 68 65 20 | 73 65 6c 65 63 74 69 6f |ake the |selectio|
|00000c90| 6e 20 6d 61 74 63 68 20 | 62 65 74 74 65 72 20 77 |n match |better w|
|00000ca0| 69 74 68 6f 75 74 20 68 | 61 76 69 6e 67 20 74 6f |ithout h|aving to|
|00000cb0| 20 67 75 65 73 73 20 61 | 74 20 74 68 65 20 6c 65 | guess a|t the le|
|00000cc0| 6e 67 74 68 20 6f 72 20 | 77 69 64 74 68 2c 20 6f |ngth or |width, o|
|00000cd0| 72 20 73 63 61 6c 69 6e | 67 0d 20 20 74 68 65 20 |r scalin|g.  the |
|00000ce0| 63 68 6f 73 65 6e 20 72 | 65 63 74 20 74 6f 20 66 |chosen r|ect to f|
|00000cf0| 69 74 20 74 68 65 20 64 | 6f 63 75 6d 65 6e 74 2e |it the d|ocument.|
|00000d00| 09 53 6d 61 6c 6c 20 70 | 69 65 63 65 20 63 68 6f |.Small p|iece cho|
|00000d10| 73 65 6e 20 77 69 6c 6c | 20 62 6c 6f 77 20 75 70 |sen will| blow up|
|00000d20| 20 74 6f 20 66 69 74 20 | 65 61 73 69 6c 79 2e 09 | to fit |easily..|
|00000d30| 54 68 69 73 0d 20 20 77 | 69 6c 6c 20 6d 61 6b 65 |This.  w|ill make|
|00000d40| 20 69 74 20 65 61 73 69 | 65 72 20 74 6f 20 63 68 | it easi|er to ch|
|00000d50| 6f 6f 73 65 20 61 20 73 | 65 6c 65 63 74 69 6f 6e |oose a s|election|
|00000d60| 20 74 68 61 74 20 67 69 | 76 65 73 20 61 20 31 3a | that gi|ves a 1:|
|00000d70| 31 20 61 73 70 65 63 74 | 20 72 61 74 69 6f 2e 09 |1 aspect| ratio..|
|00000d80| 54 68 69 73 20 61 6c 73 | 6f 0d 20 20 63 68 6f 6f |This als|o.  choo|
|00000d90| 73 65 73 20 77 68 69 63 | 68 20 64 69 72 65 63 74 |ses whic|h direct|
|00000da0| 69 6f 6e 20 74 68 65 20 | 6d 6f 75 73 65 20 68 61 |ion the |mouse ha|
|00000db0| 73 20 6d 6f 76 65 64 2c | 20 64 65 63 69 64 69 6e |s moved,| decidin|
|00000dc0| 67 20 77 68 69 63 68 20 | 69 73 20 6c 61 72 67 65 |g which |is large|
|00000dd0| 72 20 69 6e 20 6f 72 64 | 65 72 20 74 6f 20 64 65 |r in ord|er to de|
|00000de0| 63 69 64 65 0d 20 20 74 | 68 65 20 64 69 72 65 63 |cide.  t|he direc|
|00000df0| 74 69 6f 6e 20 74 6f 20 | 63 6f 6e 73 74 72 61 69 |tion to |constrai|
|00000e00| 6e 2e 20 7d 0d 0d 09 56 | 41 52 0d 09 09 6e 65 77 |n. }...V|AR...new|
|00000e10| 57 69 64 74 68 2c 20 6e | 65 77 48 65 69 67 68 74 |Width, n|ewHeight|
|00000e20| 3a 20 4c 6f 6e 67 49 6e | 74 3b 0d 09 09 6d 6f 75 |: LongIn|t;...mou|
|00000e30| 73 65 52 61 74 69 6f 2c | 20 70 6c 6f 74 52 61 74 |seRatio,| plotRat|
|00000e40| 69 6f 3a 20 52 65 61 6c | 3b 0d 0d 09 50 52 4f 43 |io: Real|;...PROC|
|00000e50| 45 44 55 52 45 20 43 68 | 61 6e 67 65 57 69 64 74 |EDURE Ch|angeWidt|
|00000e60| 68 3b 0d 0d 09 09 42 45 | 47 49 4e 0d 09 09 09 7b |h;....BE|GIN....{|
|00000e70| 20 47 65 74 20 74 68 65 | 20 6e 65 77 20 77 69 64 | Get the| new wid|
|00000e80| 74 68 20 61 73 20 61 20 | 70 6f 73 69 74 69 76 65 |th as a |positive|
|00000e90| 20 6e 75 6d 62 65 72 2c | 20 61 20 64 69 73 70 6c | number,| a displ|
|00000ea0| 61 63 65 6d 65 6e 74 20 | 74 68 61 74 20 69 73 20 |acement |that is |
|00000eb0| 63 6f 6e 73 74 72 61 69 | 6e 65 64 2e 20 7d 0d 0d |constrai|ned. }..|
|00000ec0| 09 09 09 6e 65 77 57 69 | 64 74 68 20 3a 3d 20 41 |...newWi|dth := A|
|00000ed0| 42 53 28 6e 65 78 74 50 | 6f 69 6e 74 2e 76 20 2d |BS(nextP|oint.v -|
|00000ee0| 20 61 6e 63 68 6f 72 50 | 6f 69 6e 74 2e 76 29 20 | anchorP|oint.v) |
|00000ef0| 2a 20 66 50 6c 6f 74 57 | 69 64 74 68 20 44 49 56 |* fPlotW|idth DIV|
|00000f00| 20 66 50 6c 6f 74 48 65 | 69 67 68 74 3b 0d 0d 09 | fPlotHe|ight;...|
|00000f10| 09 09 7b 20 44 65 63 69 | 64 65 20 77 68 69 63 68 |..{ Deci|de which|
|00000f20| 20 71 75 61 64 72 61 6e | 74 20 77 65 20 61 72 65 | quadran|t we are|
|00000f30| 20 69 6e 2c 20 6d 6f 76 | 69 6e 67 20 74 68 65 20 | in, mov|ing the |
|00000f40| 72 69 67 68 74 20 64 69 | 72 65 63 74 69 6f 6e 2e |right di|rection.|
|00000f50| 20 7d 0d 0d 09 09 09 49 | 46 20 6e 65 78 74 50 6f | }.....I|F nextPo|
|00000f60| 69 6e 74 2e 68 20 3c 20 | 61 6e 63 68 6f 72 50 6f |int.h < |anchorPo|
|00000f70| 69 6e 74 2e 68 20 54 48 | 45 4e 0d 09 09 09 09 6e |int.h TH|EN.....n|
|00000f80| 65 77 57 69 64 74 68 20 | 3a 3d 20 2d 20 6e 65 77 |ewWidth |:= - new|
|00000f90| 57 69 64 74 68 3b 0d 0d | 09 09 09 7b 20 41 63 74 |Width;..|...{ Act|
|00000fa0| 75 61 6c 6c 79 20 63 68 | 61 6e 67 65 20 74 68 65 |ually ch|ange the|
|00000fb0| 20 66 69 6e 61 6c 20 70 | 6f 69 6e 74 20 74 6f 20 | final p|oint to |
|00000fc0| 70 61 73 73 20 62 61 63 | 6b 2e 20 7d 0d 0d 09 09 |pass bac|k. }....|
|00000fd0| 09 6e 65 78 74 50 6f 69 | 6e 74 2e 68 20 3a 3d 20 |.nextPoi|nt.h := |
|00000fe0| 61 6e 63 68 6f 72 50 6f | 69 6e 74 2e 68 20 2b 20 |anchorPo|int.h + |
|00000ff0| 6e 65 77 57 69 64 74 68 | 3b 20 7b 20 61 64 64 20 |newWidth|; { add |
|00001000| 6f 66 66 73 65 74 20 74 | 6f 20 67 65 74 20 6e 65 |offset t|o get ne|
|00001010| 77 20 70 74 2e 20 7d 0d | 09 09 45 4e 44 3b 0d 0d |w pt. }.|..END;..|
|00001020| 09 50 52 4f 43 45 44 55 | 52 45 20 43 68 61 6e 67 |.PROCEDU|RE Chang|
|00001030| 65 48 65 69 67 68 74 3b | 0d 0d 09 09 42 45 47 49 |eHeight;|....BEGI|
|00001040| 4e 0d 09 09 09 7b 20 47 | 65 74 20 74 68 65 20 6e |N....{ G|et the n|
|00001050| 65 77 20 68 65 69 67 68 | 74 20 61 73 20 61 20 70 |ew heigh|t as a p|
|00001060| 6f 73 69 74 69 76 65 20 | 6e 75 6d 62 65 72 2c 20 |ositive |number, |
|00001070| 61 20 64 69 73 70 6c 61 | 63 65 6d 65 6e 74 20 74 |a displa|cement t|
|00001080| 68 61 74 20 69 73 20 63 | 6f 6e 73 74 72 61 69 6e |hat is c|onstrain|
|00001090| 65 64 2e 20 7d 0d 0d 09 | 09 09 6e 65 77 48 65 69 |ed. }...|..newHei|
|000010a0| 67 68 74 20 3a 3d 20 41 | 42 53 28 6e 65 78 74 50 |ght := A|BS(nextP|
|000010b0| 6f 69 6e 74 2e 68 20 2d | 20 61 6e 63 68 6f 72 50 |oint.h -| anchorP|
|000010c0| 6f 69 6e 74 2e 68 29 20 | 2a 20 66 50 6c 6f 74 48 |oint.h) |* fPlotH|
|000010d0| 65 69 67 68 74 20 44 49 | 56 20 66 50 6c 6f 74 57 |eight DI|V fPlotW|
|000010e0| 69 64 74 68 3b 0d 0d 09 | 09 09 7b 20 44 65 63 69 |idth;...|..{ Deci|
|000010f0| 64 65 20 77 68 69 63 68 | 20 71 75 61 64 72 61 6e |de which| quadran|
|00001100| 74 20 77 65 20 61 72 65 | 20 69 6e 2c 20 6d 6f 76 |t we are| in, mov|
|00001110| 69 6e 67 20 74 68 65 20 | 72 69 67 68 74 20 64 69 |ing the |right di|
|00001120| 72 65 63 74 69 6f 6e 2e | 20 7d 0d 0d 09 09 09 49 |rection.| }.....I|
|00001130| 46 20 6e 65 78 74 50 6f | 69 6e 74 2e 76 20 3c 20 |F nextPo|int.v < |
|00001140| 61 6e 63 68 6f 72 50 6f | 69 6e 74 2e 76 20 54 48 |anchorPo|int.v TH|
|00001150| 45 4e 0d 09 09 09 09 6e | 65 77 48 65 69 67 68 74 |EN.....n|ewHeight|
|00001160| 20 3a 3d 20 2d 20 6e 65 | 77 48 65 69 67 68 74 3b | := - ne|wHeight;|
|00001170| 0d 0d 09 09 09 7b 20 41 | 63 74 75 61 6c 6c 79 20 |.....{ A|ctually |
|00001180| 63 68 61 6e 67 65 20 74 | 68 65 20 66 69 6e 61 6c |change t|he final|
|00001190| 20 70 6f 69 6e 74 20 74 | 6f 20 70 61 73 73 20 62 | point t|o pass b|
|000011a0| 61 63 6b 2e 20 7d 0d 0d | 09 09 09 6e 65 78 74 50 |ack. }..|...nextP|
|000011b0| 6f 69 6e 74 2e 76 20 3a | 3d 20 61 6e 63 68 6f 72 |oint.v :|= anchor|
|000011c0| 50 6f 69 6e 74 2e 76 20 | 2b 20 6e 65 77 48 65 69 |Point.v |+ newHei|
|000011d0| 67 68 74 3b 20 7b 20 61 | 64 64 20 6f 66 66 73 65 |ght; { a|dd offse|
|000011e0| 74 20 74 6f 20 67 65 74 | 20 6e 65 77 20 70 74 2e |t to get| new pt.|
|000011f0| 20 7d 0d 09 09 45 4e 44 | 3b 0d 0d 09 50 52 4f 43 | }...END|;...PROC|
|00001200| 45 44 55 52 45 20 50 69 | 6e 50 6f 69 6e 74 3b 0d |EDURE Pi|nPoint;.|
|00001210| 09 7b 20 50 69 6e 20 74 | 68 65 20 72 65 63 74 61 |.{ Pin t|he recta|
|00001220| 6e 67 6c 65 20 74 6f 20 | 74 68 65 20 65 64 67 65 |ngle to |the edge|
|00001230| 20 6f 66 20 74 68 65 20 | 64 6f 63 75 6d 65 6e 74 | of the |document|
|00001240| 2e 20 7d 0d 0d 09 09 56 | 41 52 0d 09 09 09 63 6f |. }....V|AR....co|
|00001250| 6e 73 74 72 61 69 6e 52 | 65 63 74 3a 09 09 56 52 |nstrainR|ect:..VR|
|00001260| 65 63 74 3b 0d 0d 09 09 | 42 45 47 49 4e 0d 09 09 |ect;....|BEGIN...|
|00001270| 09 7b 24 50 75 73 68 7d | 20 7b 24 48 2d 7d 0d 09 |.{$Push}| {$H-}..|
|00001280| 09 09 53 65 74 56 52 65 | 63 74 28 63 6f 6e 73 74 |..SetVRe|ct(const|
|00001290| 72 61 69 6e 52 65 63 74 | 2c 20 30 2c 20 30 2c 20 |rainRect|, 0, 0, |
|000012a0| 66 50 6c 6f 74 57 69 64 | 74 68 2c 20 66 50 6c 6f |fPlotWid|th, fPlo|
|000012b0| 74 48 65 69 67 68 74 29 | 3b 0d 09 09 09 7b 24 50 |tHeight)|;....{$P|
|000012c0| 6f 70 7d 0d 09 09 09 50 | 69 6e 56 52 65 63 74 28 |op}....P|inVRect(|
|000012d0| 63 6f 6e 73 74 72 61 69 | 6e 52 65 63 74 2c 20 6e |constrai|nRect, n|
|000012e0| 65 78 74 50 6f 69 6e 74 | 29 3b 0d 09 09 45 4e 44 |extPoint|);...END|
|000012f0| 3b 0d 0d 09 42 45 47 49 | 4e 0d 09 09 6d 6f 75 73 |;...BEGI|N...mous|
|00001300| 65 52 61 74 69 6f 20 3a | 3d 20 41 42 53 28 28 6e |eRatio :|= ABS((n|
|00001310| 65 78 74 50 6f 69 6e 74 | 2e 68 20 2d 20 61 6e 63 |extPoint|.h - anc|
|00001320| 68 6f 72 50 6f 69 6e 74 | 2e 68 29 20 2f 20 28 6e |horPoint|.h) / (n|
|00001330| 65 78 74 50 6f 69 6e 74 | 2e 76 20 2d 20 61 6e 63 |extPoint|.v - anc|
|00001340| 68 6f 72 50 6f 69 6e 74 | 2e 76 29 29 3b 0d 09 09 |horPoint|.v));...|
|00001350| 70 6c 6f 74 52 61 74 69 | 6f 20 3a 3d 20 66 50 6c |plotRati|o := fPl|
|00001360| 6f 74 57 69 64 74 68 20 | 2f 20 66 50 6c 6f 74 48 |otWidth |/ fPlotH|
|00001370| 65 69 67 68 74 3b 0d 0d | 09 7b 20 54 68 65 20 64 |eight;..|.{ The d|
|00001380| 65 6c 74 61 58 2c 20 64 | 65 6c 74 61 59 20 63 61 |eltaX, d|eltaY ca|
|00001390| 6e 20 62 65 20 74 68 6f | 75 67 68 74 20 6f 66 20 |n be tho|ught of |
|000013a0| 61 73 20 61 20 72 65 63 | 74 20 74 6f 6f 2e 20 49 |as a rec|t too. I|
|000013b0| 66 20 74 68 65 20 72 61 | 74 69 6f 20 6f 66 20 73 |f the ra|tio of s|
|000013c0| 69 64 65 73 20 6f 6e 0d | 09 20 20 74 68 61 74 20 |ides on.|.  that |
|000013d0| 72 65 63 74 20 28 77 69 | 64 74 68 2f 68 65 69 67 |rect (wi|dth/heig|
|000013e0| 68 74 29 20 69 73 20 67 | 72 65 61 74 65 72 20 74 |ht) is g|reater t|
|000013f0| 68 61 6e 20 74 68 65 20 | 72 61 74 69 6f 20 6f 66 |han the |ratio of|
|00001400| 20 77 69 64 74 68 2f 68 | 65 69 67 68 74 20 6f 66 | width/h|eight of|
|00001410| 20 74 68 65 0d 09 20 20 | 70 6c 6f 74 20 72 65 63 | the..  |plot rec|
|00001420| 74 61 6e 67 6c 65 2c 20 | 74 68 65 6e 20 77 65 20 |tangle, |then we |
|00001430| 6e 65 65 64 20 74 6f 20 | 67 72 6f 77 20 74 68 65 |need to |grow the|
|00001440| 20 68 65 69 67 68 74 20 | 6f 66 20 74 68 65 20 72 | height |of the r|
|00001450| 65 63 74 2e 20 49 66 20 | 69 74 20 69 73 20 6c 65 |ect. If |it is le|
|00001460| 73 73 2c 0d 09 20 20 77 | 65 20 6e 65 65 64 20 74 |ss,..  w|e need t|
|00001470| 6f 20 67 72 6f 77 20 74 | 68 65 20 77 69 64 74 68 |o grow t|he width|
|00001480| 2e 20 54 68 69 73 20 69 | 73 20 61 20 72 61 74 69 |. This i|s a rati|
|00001490| 6f 20 6f 66 20 73 69 64 | 65 73 20 74 6f 20 64 65 |o of sid|es to de|
|000014a0| 63 69 64 65 20 77 68 69 | 63 68 20 77 61 79 20 74 |cide whi|ch way t|
|000014b0| 6f 0d 09 20 20 67 72 6f | 77 2e 20 57 65 20 67 72 |o..  gro|w. We gr|
|000014c0| 6f 77 20 74 6f 20 6d 61 | 6b 65 20 74 68 65 20 6e |ow to ma|ke the n|
|000014d0| 65 77 20 72 65 63 74 20 | 73 74 69 6c 6c 20 74 6f |ew rect |still to|
|000014e0| 75 63 68 20 74 68 65 20 | 6d 6f 75 73 65 20 70 6f |uch the |mouse po|
|000014f0| 73 69 74 69 6f 6e 2e 20 | 49 74 20 63 61 6e 20 62 |sition. |It can b|
|00001500| 65 0d 09 20 20 74 68 6f | 75 67 68 74 20 6f 66 20 |e..  tho|ught of |
|00001510| 61 73 20 74 68 65 20 72 | 65 63 74 61 6e 67 6c 65 |as the r|ectangle|
|00001520| 20 62 65 69 6e 67 20 74 | 68 69 63 6b 65 72 20 74 | being t|hicker t|
|00001530| 68 61 6e 20 74 61 6c 6c | 20 77 61 6e 74 69 6e 67 |han tall| wanting|
|00001540| 20 74 6f 20 67 72 6f 77 | 20 74 68 65 20 74 61 6c | to grow| the tal|
|00001550| 6c 0d 09 20 20 70 61 72 | 74 20 69 6e 20 61 20 63 |l..  par|t in a c|
|00001560| 6f 6e 73 74 72 61 69 6e | 65 64 20 77 61 79 2c 20 |onstrain|ed way, |
|00001570| 61 6e 64 20 74 68 65 20 | 63 6f 72 6f 6c 6c 61 72 |and the |corollar|
|00001580| 79 20 66 6f 72 20 74 68 | 65 20 77 69 64 74 68 2e |y for th|e width.|
|00001590| 20 7d 0d 0d 09 09 49 46 | 20 6d 6f 75 73 65 52 61 | }....IF| mouseRa|
|000015a0| 74 69 6f 20 3e 20 70 6c | 6f 74 52 61 74 69 6f 20 |tio > pl|otRatio |
|000015b0| 54 48 45 4e 20 42 45 47 | 49 4e 09 09 7b 20 63 6f |THEN BEG|IN..{ co|
|000015c0| 6e 73 74 72 61 69 6e 20 | 68 65 69 67 68 74 20 74 |nstrain |height t|
|000015d0| 6f 20 6e 65 77 20 76 61 | 6c 75 65 2e 20 7d 0d 09 |o new va|lue. }..|
|000015e0| 09 09 43 68 61 6e 67 65 | 48 65 69 67 68 74 3b 0d |..Change|Height;.|
|000015f0| 09 09 09 50 69 6e 50 6f | 69 6e 74 3b 0d 09 09 09 |...PinPo|int;....|
|00001600| 43 68 61 6e 67 65 57 69 | 64 74 68 3b 0d 09 09 45 |ChangeWi|dth;...E|
|00001610| 4e 44 0d 09 09 45 4c 53 | 45 20 42 45 47 49 4e 09 |ND...ELS|E BEGIN.|
|00001620| 09 09 09 09 09 09 09 09 | 7b 20 63 6f 6e 73 74 72 |........|{ constr|
|00001630| 61 69 6e 20 77 69 64 74 | 68 20 74 6f 20 6e 65 77 |ain widt|h to new|
|00001640| 20 76 61 6c 75 65 2e 20 | 7d 0d 09 09 09 43 68 61 | value. |}....Cha|
|00001650| 6e 67 65 57 69 64 74 68 | 3b 0d 09 09 09 50 69 6e |ngeWidth|;....Pin|
|00001660| 50 6f 69 6e 74 3b 0d 09 | 09 09 43 68 61 6e 67 65 |Point;..|..Change|
|00001670| 48 65 69 67 68 74 3b 0d | 09 09 45 4e 44 3b 0d 09 |Height;.|..END;..|
|00001680| 45 4e 44 3b 09 09 09 09 | 09 09 09 09 09 09 09 7b |END;....|.......{|
|00001690| 20 54 41 72 65 61 53 65 | 6c 65 63 74 6f 72 2e 54 | TAreaSe|lector.T|
|000016a0| 72 61 63 6b 43 6f 6e 73 | 74 72 61 69 6e 20 7d 0d |rackCons|train }.|
|000016b0| 0d 7b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{------|--------|
|000016c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 7b |--------|-----}.{|
|00001710| 24 53 20 41 46 69 65 6c | 64 73 7d 0d 0d 50 52 4f |$S AFiel|ds}..PRO|
|00001720| 43 45 44 55 52 45 20 54 | 41 72 65 61 53 65 6c 65 |CEDURE T|AreaSele|
|00001730| 63 74 6f 72 2e 46 69 65 | 6c 64 73 28 50 52 4f 43 |ctor.Fie|lds(PROC|
|00001740| 45 44 55 52 45 20 44 6f | 54 6f 46 69 65 6c 64 28 |EDURE Do|ToField(|
|00001750| 66 69 65 6c 64 4e 61 6d | 65 3a 20 53 74 72 32 35 |fieldNam|e: Str25|
|00001760| 35 3b 20 66 69 65 6c 64 | 41 64 64 72 3a 20 50 74 |5; field|Addr: Pt|
|00001770| 72 3b 0d 09 09 09 09 09 | 09 09 09 09 09 09 09 20 |r;......|....... |
|00001780| 20 20 66 69 65 6c 64 54 | 79 70 65 3a 20 49 6e 74 |  fieldT|ype: Int|
|00001790| 65 67 65 72 29 29 3b 20 | 4f 56 45 52 52 49 44 45 |eger)); |OVERRIDE|
|000017a0| 3b 0d 0d 09 42 45 47 49 | 4e 0d 09 09 44 6f 54 6f |;...BEGI|N...DoTo|
|000017b0| 46 69 65 6c 64 28 27 54 | 46 61 73 74 46 72 61 63 |Field('T|FastFrac|
|000017c0| 41 70 70 45 6e 67 69 6e | 65 27 2c 20 4e 49 4c 2c |AppEngin|e', NIL,|
|000017d0| 20 62 43 6c 61 73 73 29 | 3b 0d 09 09 44 6f 54 6f | bClass)|;...DoTo|
|000017e0| 46 69 65 6c 64 28 27 66 | 4f 77 6e 65 72 56 69 65 |Field('f|OwnerVie|
|000017f0| 77 27 2c 20 40 66 4f 77 | 6e 65 72 56 69 65 77 2c |w', @fOw|nerView,|
|00001800| 20 62 4f 62 6a 65 63 74 | 29 3b 0d 09 09 44 6f 54 | bObject|);...DoT|
|00001810| 6f 46 69 65 6c 64 28 27 | 66 50 6c 6f 74 48 65 69 |oField('|fPlotHei|
|00001820| 67 68 74 27 2c 20 40 66 | 50 6c 6f 74 48 65 69 67 |ght', @f|PlotHeig|
|00001830| 68 74 2c 20 62 4f 62 6a | 65 63 74 29 3b 0d 09 09 |ht, bObj|ect);...|
|00001840| 44 6f 54 6f 46 69 65 6c | 64 28 27 66 50 6c 6f 74 |DoToFiel|d('fPlot|
|00001850| 57 69 64 74 68 27 2c 20 | 40 66 50 6c 6f 74 57 69 |Width', |@fPlotWi|
|00001860| 64 74 68 2c 20 62 4f 62 | 6a 65 63 74 29 3b 0d 0d |dth, bOb|ject);..|
|00001870| 09 09 7b 20 50 72 69 6e | 74 20 66 69 65 6c 64 73 |..{ Prin|t fields|
|00001880| 20 6f 66 20 61 6e 73 63 | 65 73 74 6f 72 73 20 7d | of ansc|estors }|
|00001890| 0d 09 09 49 4e 48 45 52 | 49 54 45 44 20 46 69 65 |...INHER|ITED Fie|
|000018a0| 6c 64 73 28 44 6f 54 6f | 46 69 65 6c 64 29 3b 0d |lds(DoTo|Field);.|
|000018b0| 09 45 4e 44 3b 0d 00 00 | 00 00 00 00 00 00 00 00 |.END;...|........|
|000018c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001900| 00 00 01 00 00 00 02 5e | 00 00 01 5e 00 00 00 4a |.......^|...^...J|
|00001910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001930| 14 55 41 72 65 61 53 65 | 6c 65 63 74 6f 72 2e 69 |.UAreaSe|lector.i|
|00001940| 6e 63 31 2e 70 69 02 00 | 00 00 54 45 58 54 4d 50 |nc1.pi..|..TEXTMP|
|00001950| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 01 20 |..TEXTMP|S ..... |
|00001960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001970| 00 00 a2 64 55 cd 00 00 | 00 00 00 00 02 a8 00 00 |...dU...|........|
|00001980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a00| 00 00 00 1e 00 2a 00 05 | 01 d3 02 73 00 2a 00 05 |.....*..|...s.*..|
|00001a10| 01 d3 02 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |...s....|........|
|00001a20| 00 00 00 00 00 48 00 09 | 4d 6f 6e 61 63 6f 00 00 |.....H..|Monaco..|
|00001a30| 00 14 00 01 95 64 00 0a | 00 03 00 00 00 0e 02 47 |.....d..|.......G|
|00001a40| 00 28 00 00 00 24 00 00 | 00 06 00 04 00 2a 00 05 |.(...$..|.....*..|
|00001a50| 01 d3 02 5d 00 2a 00 05 | 01 d3 02 5d a2 3b 9d c0 |...].*..|...].;..|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00001a70| 00 ec 00 08 00 00 00 8a | 00 00 00 a5 1b 54 41 72 |........|.....TAr|
|00001a80| 65 61 53 65 6c 65 63 74 | 6f 72 2e 49 41 72 65 61 |eaSelect|or.IArea|
|00001a90| 53 65 6c 65 63 74 6f 72 | 00 00 03 8a 00 00 03 a2 |Selector|........|
|00001aa0| 19 54 41 72 65 61 53 65 | 6c 65 63 74 6f 72 2e 54 |.TAreaSe|lector.T|
|00001ab0| 72 61 63 6b 4d 6f 75 73 | 65 00 00 00 07 49 00 00 |rackMous|e....I..|
|00001ac0| 07 64 1b 54 41 72 65 61 | 53 65 6c 65 63 74 6f 72 |.d.TArea|Selector|
|00001ad0| 2e 54 72 61 63 6b 46 65 | 65 64 62 61 63 6b 00 00 |.TrackFe|edback..|
|00001ae0| 0b 31 00 00 0b 4d 1d 54 | 41 72 65 61 53 65 6c 65 |.1...M.T|AreaSele|
|00001af0| 63 74 6f 72 2e 54 72 61 | 63 6b 43 6f 6e 73 74 72 |ctor.Tra|ckConstr|
|00001b00| 61 69 6e 00 00 00 0d d6 | 00 00 0d e1 0b 43 68 61 |ain.....|.....Cha|
|00001b10| 6e 67 65 57 69 64 74 68 | 00 00 0f ab 00 00 0f b7 |ngeWidth|........|
|00001b20| 0d 43 68 61 6e 67 65 48 | 65 69 67 68 74 00 00 00 |.ChangeH|eight...|
|00001b30| 11 86 00 00 11 8e 09 50 | 69 6e 50 6f 69 6e 74 00 |.......P|inPoint.|
|00001b40| 00 00 16 a7 00 00 16 bb | 15 54 41 72 65 61 53 65 |........|.TAreaSe|
|00001b50| 6c 65 63 74 6f 72 2e 46 | 69 65 6c 64 73 00 00 00 |lector.F|ields...|
|00001b60| 01 00 00 00 02 5e 00 00 | 01 5e 00 00 00 4a 00 34 |.....^..|.^...J.4|
|00001b70| 5b 34 08 d2 00 00 00 1c | 00 4a 00 00 4d 50 53 52 |[4......|.J..MPSR|
|00001b80| 00 02 00 0a 03 f0 ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00001b90| 03 ed ff ff 00 00 00 22 | 00 00 00 00 03 ef ff ff |......."|........|
|00001ba0| 00 00 00 6e 00 35 ff a0 | 00 00 00 00 00 00 00 00 |...n.5..|........|
|00001bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+